---
title: "`r params$dynamictitle`"
date: "`r params$reportdate`"
output:
flexdashboard::flex_dashboard:
orientation: columns
social: menu
source_code: embed
params:
symbol: [LLY, ANTM, CMI]
reportdate: !r Sys.Date()
dynamictitle: "Dygraphs Linked Time Series"
---
```{r setup, include=FALSE}
library(dygraphs)
library(quantmod)
library(flexdashboard)
# stock < - getSymbols(c(params$symbol1, params$symbol2, params$symbol3), from = "2014-01-01", auto.assign=TRUE)
symbol <- as.list(params$symbol)
stock <- lapply(
symbol, function(x){
prep <- getSymbols(x, auto.assign = FALSE,
from = "2014-01-01", end = Sys.Date())
})
dygraph <- mapply(function(x, label){
colnames(x) <- c("Open", "High", "Low", "Close", "Volume", "Adjusted")
dygraph(x[,2:4], group="stocks") %>%
dySeries(c("Low", "Close", "High"), label=label)
}
, x=stock
, label=symbol
, SIMPLIFY = FALSE)
```
### `r symbol[1]`
```{r}
dygraph[[1]]
```
### `r symbol[2]`
```{r}
dygraph[[2]]
```
### `r symbol[3]`
```{r}
dygraph[[3]]
```